home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmsyscm / _setup.1 / AHMTMultiLists.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-11-12  |  3.3 KB  |  107 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'AHMTMultiLists.pas' rev: 3.00
  6.  
  7. #ifndef AHMTMultiListsHPP
  8. #define AHMTMultiListsHPP
  9. #include <AHMSystem.hpp>
  10. #include <Classes.hpp>
  11. #include <SysUtils.hpp>
  12. #include <Messages.hpp>
  13. #include <Windows.hpp>
  14. #include <SysInit.hpp>
  15. #include <System.hpp>
  16.  
  17. //-- user supplied -----------------------------------------------------------
  18.  
  19. namespace Ahmtmultilists
  20. {
  21. //-- type declarations -------------------------------------------------------
  22. class DELPHICLASS TAHMStringList;
  23. class DELPHICLASS TAHMMultiLists;
  24. class DELPHICLASS TAHMStringLists;
  25. class PASCALIMPLEMENTATION TAHMStringLists : public Classes::TCollection 
  26. {
  27.     typedef Classes::TCollection inherited;
  28.     
  29. private:
  30.     TAHMMultiLists* FAHMMultiLists;
  31.     TAHMStringList* __fastcall GeTAHMStringList(int Index);
  32.     void __fastcall SeTAHMStringList(int Index, TAHMStringList* Value);
  33.     
  34. protected:
  35.     DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
  36.     
  37. public:
  38.     __fastcall TAHMStringLists(TAHMMultiLists* AOwner);
  39.     HIDESBASE TAHMStringList* __fastcall Add(void);
  40.     __property TAHMStringList* Items[int Index] = {read=GeTAHMStringList, write=SeTAHMStringList/*, default
  41.         */};
  42. public:
  43.     /* TCollection.Destroy */ __fastcall virtual ~TAHMStringLists(void) { }
  44.     
  45. };
  46.  
  47. class PASCALIMPLEMENTATION TAHMMultiLists : public Ahmsystem::TAHMSystemsComponent 
  48. {
  49.     typedef Ahmsystem::TAHMSystemsComponent inherited;
  50.     
  51. private:
  52.     TAHMStringLists* FAHMStringLists;
  53.     void __fastcall SetAHMStringLists(TAHMStringLists* Value);
  54.     
  55. public:
  56.     __fastcall virtual TAHMMultiLists(Classes::TComponent* AOwner);
  57.     __fastcall virtual ~TAHMMultiLists(void);
  58.     
  59. __published:
  60.     __property TAHMStringLists* Lists = {read=FAHMStringLists, write=SetAHMStringLists};
  61. };
  62.  
  63. class PASCALIMPLEMENTATION TAHMStringList : public Classes::TCollectionItem 
  64. {
  65.     typedef Classes::TCollectionItem inherited;
  66.     
  67. private:
  68.     Classes::TStrings* FStrings;
  69.     TAHMMultiLists* FAHMMultiLists;
  70.     virtual System::AnsiString __fastcall GetDisplayName(void);
  71.     void __fastcall SetStrings(Classes::TStrings* Value);
  72.     
  73. public:
  74.     __fastcall virtual TAHMStringList(Classes::TCollection* Collection);
  75.     __fastcall virtual ~TAHMStringList(void);
  76.     __property TAHMMultiLists* Owner = {read=FAHMMultiLists};
  77.     
  78. __published:
  79.     __property Classes::TStrings* Strings = {read=FStrings, write=SetStrings};
  80. };
  81.  
  82. class DELPHICLASS TAHMBetaStringList;
  83. class PASCALIMPLEMENTATION TAHMBetaStringList : public Ahmtmultilists::TAHMStringList 
  84. {
  85.     typedef Ahmtmultilists::TAHMStringList inherited;
  86.     
  87. private:
  88.     bool fhasboolean;
  89.     
  90. __published:
  91.     __property bool HasBoolean = {read=fhasboolean, write=fhasboolean, nodefault};
  92. public:
  93.     /* TAHMStringList.Create */ __fastcall virtual TAHMBetaStringList(Classes::TCollection* Collection)
  94.          : Ahmtmultilists::TAHMStringList(Collection) { }
  95.     /* TAHMStringList.Destroy */ __fastcall virtual ~TAHMBetaStringList(void) { }
  96.     
  97. };
  98.  
  99. //-- var, const, procedure ---------------------------------------------------
  100.  
  101. }    /* namespace Ahmtmultilists */
  102. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  103. using namespace Ahmtmultilists;
  104. #endif
  105. //-- end unit ----------------------------------------------------------------
  106. #endif    // AHMTMultiLists
  107.